home *** CD-ROM | disk | FTP | other *** search
/ Most Valuable Games 1 / Most Valuable Games I (MVP Publishing)(February 1995).iso / games1 / f117_20 / adv.pic (.txt) < prev    next >
AmigaBASIC Source Code  |  1991-10-07  |  15KB  |  11 lines
  1.                                                                                                                                                                                                                                                              <0x7d7692>8P CLNGCALL<0x7d7698>!IMPz
  2. COS@ELSEIFlabel5260'<0x7d76a6>
  3. ABS<0x7d76a9>7-^<0x4c>h                                                                    H<0x7d76e3>;j<0x7c>H <0x62>EFIELD'!SIN<0x61,0x00><0x60>LOGASCEOF<0x7d76f5>LLETFOR8ANDcvarffff9a01oELSE<0x5c>COSrSTATICIFIELDEXP<0x58>FIELDAREAY3cCEOF-9.2975e-314`labelffff9b43S.M<0x61,0x00>MID$PELSE3QTAN4COSRSETgMLETHEOFn<0x4d>8IMPMKS$O<0x20>u<0x61,0x00>ON<0x7d7738>P<0x4c>XPUTvar5f7aTOINKEY$                                                                              <0x20>!!>4k5<<0x47>SGNEXP*<P{RSET<0x5f>`MKL$<0x7d><0x7d7786>CzINKEY$<0xa6,0xfffffffc><0x62><0x46>COS06.52551e-315b<0x7d779a>,STR$<0x61>c<0x49>EXP6;MODMKS$SPACE$LSETNOT<0x46>~GET~D<0x7d77ad><0x55>READTHENFOR<0x7d77b2>c#,<0x48><0x7d77b7>varffffa44f
  4. 8<0x5c><0x7d77be>ABSELSEIF251650w*/O INKEY$pFIX<0x5c>
  5. sTHEN<0x7d77d6>LEN4|CVL<0x7c><0x7d77dc>IMP<<0x52><0x7d77e0>PCLOSENELSEIFCOS\-<0x60>WRITEC?P]<0x7c>v'<0x7d77f1><0x4a>'W
  6. }MKL$632027PMKI$<0x57>wASCABS2USING<0x7d7805>LSETcLEFT$H2080835842<0x4f>=7LENz                               v<0x57>a\LENu=8MKS$<0x5d>CALL<0x60>U7LOCu<0x7d7852>6<0x45>SQR7}<0x7d785c>STR$2<0x7d785f><0x7d7860>MOD<0x7d7862>4G<0x7d7865><0x7f>u@!t+=<0x7d786d>LOCABS<0x5d>a7-5.00298e-36 CALL<0x52>-4.34814e-295COMMONay'!<0x48>^r2t<0x58><0x5b>CLOSELSETASC;L<0x7d7894>$ASCqEXP|ASCbr7Tw<0x5d>bTO4.77229e-349<0x48>ELSEIFy5B@STATICCVI&H4637-1.83705e-25\CVSEXPP`LSET}EQV) 0}WEND<0x7d78c6>4AREAvar01b50%$6@NOT\ASC]685870904<0x7d78da>ZLOGv38912CALL2048                   <0x7d7912>STRING$MKD$CVI4BR$|G5@2.85525e-316RETURNNOT<0x7d7929>CALLINPUT' ASC=GOSUB<0x59>LENNEXT<0x7d7934><0x5a>7MKS$var10ea%#labelffffe165YELSEIFLOCdGOSUBINKEY$LETLOG<0x49>5^MKD$^EQVWEND<0x7d794f>P9{V^'RIGHT$`6<0x7d7959>hDATA20<0x7d795e>OPENt4\<0x59>LENPRINTASC=<0x8a,0x00>$<0x7d796b>STR$TAN<0x53>INT;EQVINKEY$028204CINTqVAL-5.04114e-25<0x5e>h PRINT89MKS$cRND/<0x56>ZREMt┤f'π│╪╓╪
  7.                                                                                       B'CLNGREM╨GA9⌠}P{:0î>zk¼ⁿµ ╔┐ε«µái║kα¡ H^Ñ╛bΩ[┴mûú2}D╞₧#'╪nù╡å╖ÿî;°▐ÿ«Ü\╢;L'å⌠@Ds7ñåMëE
  8. @D2<5WEND^<0x54>SW-4<0x54>RS<0x7d>t<0x53>^+`IMP<0x53>QO6<0x7d7a51>**XOR<0x46>/.CVIREM═&4æú▄m╓╕Ç▓+╥êá┌1v n┐╓╜⌠T[G┬Ω N
  9.                                                                            <0x7d7ab2><0x7d7ab3>@STATIC<0x7d7ab6>3<0x51>STR$<0x58>EOF'6<0x0f,0x00>              <0x49>TOGOSUBK^u@0LYfCVI>FIX)LETASC2<0x50>]ABS<0x5c>N<0x50><0x5d>@2tC@7<0x7d7b11>STR$<0x5a>ON!t%<0x47><0x47>$LENG<0x7d7b1d>.OPENuLET?LOCCDBL<0x4a>CVD7<0x7d7b28>@rLEFT$"<$╔3┐|≤╨o]N╜?·₧ <HΘ                                                                                                                                                                                                                                      +2675189504<0x3b>tOPENSQR*-5.58031e+26:<0x5d>2<0x54>V9STATICGET<0x7d7b8e><0x33,0xfffffffc>NOT<0x60>M3DATAa9<0x55>GOTOS<05CLNGPN^'WEND                                                                                                                                                                                                                                   7=(<0x60>
  10. PUTFN9var3ecdASC<0x7d7bde> <0x20>0ALOCS6MID$vTHENREAD<0x5b>e>labelffffeb33_CTG7labelffffd02dlabel2184CDBL<0x7d7c02>'U3F=LOC[EQVY3^'CABS<0x7e>GET<0x7f>RSETH<0x7f>~\CDBL"∞0╒╦    å|Φ@ BpêA─Vì8=û-â■╤▐#û*ΘáP:á█╘g╛≤ì∩|`lûFHBì$Zñ█▌⌠Ñ/≈1
  11. FF                                                                                                                                                                                                                 EQVATN?<0x62>-MKS$i*XOR2.53599e-316uT